home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO015A.dsk / PROGRAMS / PRG.5.bas < prev   
BASIC Source File  |  2012-02-16  |  543b  |  15 lines
  1. 1  REM PRG.5
  2. 5  ONERR  GOTO 300
  3. 10 Z$ = "PASSWORD TO SYS.UTIL": &   OR ,Z$
  4. 20  &  PRINT ,,"Password? ";
  5. 30  &  STR$10," ": POKE 825,255: &  INPUT Z$: POKE 825,0
  6. 40  IF Z$ = "SET-SYSTEM"  THEN 100
  7. 50  &  PRINT ,"WRONG!!!",,,
  8. 60  &  AT  PEEK(836),A: PRINT  CHR$(4);"RUN BBS.1"
  9. 100  &  AT  PEEK(837),A: IF A >0  THEN 200
  10. 110  PRINT  CHR$(4);"RUN SYS.UTIL"
  11. 200  &  PRINT ,,"UNIT IS NOT ON LINE!",,: GOTO 60
  12. 300  ONERR  = ER,LI: ONERR  GOTO 300
  13. 310  IF ER = 253  THEN 400
  14. 320  GOTO 200
  15. 400  &  FN 4,A: &  AT  PEEK(836),A: PRINT  CHR$(4);"RUN LOG"